home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 21 / CU Amiga Magazine's Super CD-ROM 21 (1998)(EMAP Images)(GB)[!][issue 1998-04].iso / CUCD / Programming / Python-1.4 / Source / Amiga / Python_netlib / getpid.c < prev    next >
C/C++ Source or Header  |  1994-09-29  |  433b  |  20 lines
  1. RCS_ID_C="$Id: getpid.c,v 4.1 1994/09/29 23:09:02 jraja Exp $";
  2. /*
  3.  *      getpid() - stub for the FindTask(NULL)
  4.  *
  5.  *      Copyright © 1994 AmiTCP/IP Group, 
  6.  *                       Network Solutions Development Inc.
  7.  *                       All rights reserved.
  8.  */
  9.  
  10. #include <sys/types.h>
  11. #include <unistd.h>
  12. #include <exec/execbase.h>
  13. extern struct ExecBase *SysBase;
  14.  
  15. pid_t
  16. getpid(void)
  17. {
  18.   return (pid_t)SysBase->ThisTask;
  19. }
  20.